Option Explicit
'OҲAppEventCls
Public WithEvents myApp As Application
Private Sub myApp_NewWorkbook(ByVal Wb As Workbook)
    MsgBox Wb.Name & "Qs@XӤFC by Application"
End Sub

Private Sub myApp_SheetActivate(ByVal Sh As Object)
    MsgBox Sh.Name & "Active]ҥΡ^AC by Application"
End Sub

Private Sub myApp_SheetBeforeDoubleClick(ByVal Sh As Object, _
        ByVal Target As Range, Cancel As Boolean)
    MsgBox Sh.Name & "" & Target.Address & "QGUFC by Application"
End Sub

Private Sub myApp_SheetBeforeRightClick(ByVal Sh As Object, _
        ByVal Target As Range, Cancel As Boolean)
    MsgBox Sh.Name & "" & Target.Address & "QHƹkIFC by Application"
End Sub

Private Sub myApp_SheetCalculate(ByVal Sh As Object)
    MsgBox Sh.Name & "QӶipFC by Application"
End Sub

Private Sub myApp_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    MsgBox Sh.Name & "" & Target.Address & "ȳQܧFC by Application"
End Sub

Private Sub myApp_SheetDeactivate(ByVal Sh As Object)
    MsgBox Sh.Name & "wgOActive]ҥΡ^AFC by Application"
End Sub

Private Sub myApp_SheetFollowHyperlink(ByVal Sh As Object, ByVal Target As Hyperlink)
    MsgBox Sh.Name & "" & Target.SubAddress & _
        "cWsC by Application"
End Sub

Private Sub myApp_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    MsgBox Sh.Name & "" & Target.Address & "QܤFC by Application"
End Sub

Private Sub myApp_WindowActivate(ByVal Wb As Workbook, ByVal Wn As Window)
    MsgBox Wb.Name & "" & Wn.Index & "ӵActive]ҥΡ^AC by Application"
End Sub

Private Sub myApp_WindowDeactivate(ByVal Wb As Workbook, ByVal Wn As Window)
    MsgBox Wb.Name & "" & Wn.Index & "ӵwgOActive]ҥΡ^AFC by Application"
End Sub

Private Sub myApp_WindowResize(ByVal Wb As Workbook, ByVal Wn As Window)
    MsgBox Wb.Name & "" & Wn.Index & "ӵjpQܧFC by Application"
End Sub

Private Sub myApp_WorkbookActivate(ByVal Wb As Workbook)
    MsgBox Wb.Name & "Active]ҥΡ^AC by Application"
End Sub

Private Sub myApp_WorkbookAddinInstall(ByVal Wb As Workbook)
    MsgBox Wb.Name & "QOAddinFC by Application"
End Sub

Private Sub myApp_WorkbookAddinUninstall(ByVal Wb As Workbook)
    MsgBox Wb.Name & "QѰOAddinFC by Application"
End Sub

Private Sub myApp_WorkbookBeforeClose(ByVal Wb As Workbook, Cancel As Boolean)
    MsgBox Wb.Name & "QCloseFC by Application"
End Sub

Private Sub myApp_WorkbookBeforePrint(ByVal Wb As Workbook, Cancel As Boolean)
    MsgBox Wb.Name & "QCLBάOܨCLwC by Application"
End Sub

Private Sub myApp_WorkbookBeforeSave(ByVal Wb As Workbook, _
        ByVal SaveAsUI As Boolean, Cancel As Boolean)
    MsgBox Wb.Name & "QxsFC by Application"
End Sub

Private Sub myApp_WorkbookDeactivate(ByVal Wb As Workbook)
    MsgBox Wb.Name & "wgOActive]ҥΡ^AFC by Application"
End Sub

Private Sub myApp_WorkbookNewSheet(ByVal Wb As Workbook, ByVal Sh As Object)
    MsgBox Wb.Name & "sW" & Sh.Name & "oӪC by Application"
End Sub

Private Sub myApp_WorkbookOpen(ByVal Wb As Workbook)
    MsgBox Wb.Name & "Q}ҤFC by Application"
End Sub

'зǼҲ
Dim myAppCls As New AppEventCls
Sub InitializeAppEvent()
  Set myAppCls.myApp = Application
End Sub
